# Figure S11B
earth_color <- colorRampPalette(c("#1f4e7e", "#f0f0f0", "#833c0c"))(33)
DimPlot_scCustom(xenium.2022.obj.neurons.log.rotated, group.by = "z", reduction = "tsne", label = F, colors_use = c(earth_color, "#dddddd")) + theme(aspect.ratio = 1)

# Figure S11C
see ./Figure 3/Figure 3B.html